home *** CD-ROM | disk | FTP | other *** search
/ Amiga Collections: New Zealand Amiga Users Group / New Zealand Amiga Users Group Newsdisk v03 (1987-02)(NZAmigaUG).zip / New Zealand Amiga Users Group Newsdisk v03 (1987-02)(NZAmigaUG).adf / BASIC / Errmon (.txt) < prev    next >
AmigaBASIC Source Code  |  1993-12-02  |  2KB  |  66 lines
  1. REM   Errmon error monitor with speech
  2.  
  3. WINDOW 1,"Errmon",(10,10)-(100,20),10
  4. DIM e$(60):RANDOMIZE TIMER
  5. w=1:n=0:i=w
  6. rd: READ e$(i):IF e$(i)<>"end" THEN n=n+w:i=i+w:GOTO rd
  7.  SAY TRANSLATE$("run this concurrently with any program to deebug it.")
  8.  ON TIMER(15) GOSUB speak
  9.  TIMER ON
  10. s: SLEEP 
  11.   GOTO s
  12. speak:
  13.     IF s=z THEN s=INT(RND*n+w)
  14.     SAY (TRANSLATE$(e$(s)))
  15.     IF s>z THEN s=s+w:IF RND*2<w THEN s=z
  16.     RETURN
  17. DATA error 9; carn't continue?
  18. DATA error 9 9;carn't take any more?
  19. DATA error 51;disk drive inoperable?
  20. DATA error 33;main bus failyour?
  21. DATA error 0;command NOT reckognised?
  22. DATA error 15;reboot AND re-try?
  23. DATA error 11;division by zeero?
  24. DATA error 1;pressing wrong keys ERROR?
  25. DATA error 111;fire ON main board?
  26. DATA you can't be serious?
  27. DATA error 111;illeegal quontitee - call the polleece.
  28. DATA error 7;out of memoree?
  29. DATA error 7.5;out of sight?
  30. DATA error 7.9;out of mind?
  31. DATA error 45;much too complex?
  32. DATA error 69;gowto undefined?
  33. DATA error 66;gowto jail- do not pass go- do not collect 2 hundred dollars?
  34. DATA error 20;bad subscript?
  35. DATA error 21;naughty subscript?
  36. DATA error 22;eevil subscript?
  37. DATA error 23;syntax error?
  38. DATA syntax currently twenty five %
  39. DATA unprintable error?
  40. DATA unspeekable error?
  41. DATA error 55;file locked?
  42. DATA error 56;file missing?
  43. DATA error 57;file missing; believed killed in action?
  44. DATA error 79;range error;aim higher?
  45. DATA error 34;write pro teckted?
  46. DATA error 35;read pro teckted?
  47. DATA error 36;reading from write only memoree?
  48. DATA error 49;tactical error?
  49. DATA error 48;newclear error?
  50. DATA error 47;c p u melt down imminent! eevaccuate now?
  51. DATA error 46;user error; reeplace user immeediately?
  52. DATA error not found error?
  53. DATA error 99;undee teckted error?
  54. DATA design error. machine intended for intelligent use?
  55. DATA error ny-ny-ny-ny-nine teen; under age error?
  56. DATA i told you so error?
  57. DATA utterly trivial error. sorry to bother you?
  58. DATA out to lunch error? bored to deth error?
  59. DATA computer error? really very very very sorry?
  60. DATA bank error in your favour? collect 2 hundred dollars?
  61. DATA error 123;too tired?
  62. DATA error 156718324;too drunk?
  63. DATA error 65;unbelievably stewpid error?
  64. DATA intangible error? its not what you did its the way that you did it
  65. DATA end      
  66.